home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1997 February / EnigmA AMIGA RUN 15 (1997)(G.R. Edizioni)(IT)[!][issue 1997-02][PLANET CD V].iso / enigma / earcd / editor / editor2 / hsc.lha / hsc / grafflwerk / SendAWeb.rexx < prev    next >
OS/2 REXX Batch file  |  1996-08-03  |  2KB  |  74 lines
  1. /*
  2.  * SendAWeb.rexx - display local document in AWeb 
  3.  *
  4.  * $VER: SendAWeb 1.0 (2.8.96)
  5.  *
  6.  * Copyright 1996 Thomas Aglassinger <agi@giga.or.at>
  7.  *
  8.  * This program is free software; you can redistribute it and/or modify
  9.  * it under the terms of the GNU General Public License as published by
  10.  * the Free Software Foundation; either version 2 of the License, or
  11.  * (at your option) any later version.
  12.  *
  13.  * This program is distributed in the hope that it will be useful,
  14.  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  15.  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  16.  * GNU General Public License for more details.
  17.  *
  18.  * You should have received a copy of the GNU General Public License
  19.  * along with this program; if not, write to the Free Software
  20.  * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
  21.  *
  22.  *--------------------------------------------------------------------------
  23.  *
  24.  * USAGE
  25.  *   rx SendAWeb <document> [<port>]
  26.  *
  27.  *   This script tells AWeb to load or reload a document (usually *.html).
  28.  *   It's intended to be used in your Makefile in the "%.html : %.hsc"-rule
  29.  *   to automatically view the updated document.
  30.  *
  31.  *   To specify the local document, you should use a path relative to the
  32.  *   current directory.
  33.  *
  34.  * EXAMPLE
  35.  *   rx SendAWeb.rexx hugo/sepp.html
  36.  *
  37.  *   rx SendAWeb.rexx hugo/sepp.html AWEB.2
  38.  *
  39.  * EXAMPLE RULE (for your Makefile)
  40.  *
  41.  *   $(DESTDIR)%.html : %.hsc
  42.  *        $(HSC) $(HSCFLAGS) $<
  43.  *        rx SendAWeb.rexx $@
  44.  *
  45.  */
  46.  
  47. /* get user-args */
  48. Parse ARG document port
  49.  
  50. /* show help end exit */
  51. IF (document="") THEN DO
  52.     SAY 'Usage: SendAWeb <document> [<port>]'
  53.     Exit
  54. END
  55.  
  56. /* use default port, if non passed */
  57. IF (port="") THEN
  58.     port = "AWEB.1"
  59. ELSE
  60.     port = STRIP(port)
  61.  
  62. /* compute document-uri */
  63. uri = 'file://localhost/' || PRAGMA('D') || '/' || document
  64.  
  65. /* check, if AWeb is running */
  66. IF ~Show('ports', port) THEN DO
  67.     SAY "Couln't find AWeb on port `" || port || "'"
  68.     Exit 10
  69. END
  70.  
  71. /* tell AWeb to (re)load page*/
  72. address VALUE port
  73. 'OPEN "' || uri || '" RELOAD'
  74.